100 ! RXB LOAD PROGRAM
110 @=1 :: DIM P$(48),Y$(48),T(48)
120 @=1 :: CALL VERSION(V) :: IF V<2020 THEN PRINT "VERSION TO OLD TO CONTINUE!" :: END
130 RESTORE
140 DISPLAY AT(1,3)ERASE ALL :"RXB LOAD PROGRAM *"
150 DISPLAY AT(6,1):"ACTIVE KEYS ARE:" :: DISPLAY AT(7,1):"E = UP CURSOR":"X = DOWN CURSOR":"S = LEFT CURSOR":"D = RIGHT CURSOR"
160 DISPLAY AT(14,1):"SPACE BAR = NEXT PAGE": :"C = DIRECTORY": :"1-9 = CATALOG DISK" :: CALL HPUT(24,3,"PLEASE WAIT...")
170 IF @ THEN CALL HPUT(24,3,"PRESS ANY KEY TO CONTINUE!") :: CALL BEEP :: CALL KEY("",3,K,S) :: @=0
180 CALL CLEAR :: E$=CHR$(13) :: N=1
190 Y=1 :: Z=3 :: CALL CHAR(128,"080C0EFFFF0E0C08",129,"103070FFFF703010")
200 FOR C=4 TO 16 STEP 12 :: FOR R=1 TO 24
210 READ P$(N),Y$(N),T(N)
220 IF T(N)=0 THEN 260
230 CALL HPUT(R,C,Y$(N)) :: IF C=4 THEN CALL HPUT(R,1,CHR$(T(N)))ELSE CALL HPUT(R,32,CHR$(T(N)))
240 N=N+1 :: IF N=49 THEN N=48 :: GOTO 260
250 NEXT R :: NEXT C
260 CALL HCHAR(Y,Z,128,1,Y,Z+11,129)
270 CALL KEY(3,K,S) :: IF K=67 THEN CALL CLEAR :: INPUT "PATH:":X$ :: CALL CAT(X$) :: CALL KEY("",3,K,S) :: GOTO 130
280 CALL HCHAR(Y,Z,32,1,Y,Z+11,32) :: IF K>48 AND K<58 THEN CALL CAT(K) :: CALL KEY("",3,K,S) :: GOTO 130
290 IF K=69 OR K=11 THEN S=Y :: Y=Y-1 :: GOSUB 390 :: IF G=32 THEN Y=S
300 IF K=88 OR K=10 THEN S=Y :: Y=Y+1 :: GOSUB 390 :: IF G=32 THEN Y=S
310 IF K=83 OR K=8 THEN Z=3
320 IF K=68 OR K=9 THEN Z=15 :: CALL GCHAR(Y,Z+1,G) :: IF G=32 THEN Z=3
330 IF K=32 THEN 340 ELSE 360
340 Y=1 :: IF POS(P$(N),"!........!",1)THEN 130
350 GOTO 180
360 IF K=13 THEN 420
370 IF K=43 OR K=61 THEN N,X=0 :: GOTO 140
380 GOTO 260
390 IF Y<1 THEN Y=24
400 IF Y>24 THEN Y=1
410 CALL GCHAR(Y,Z+1,G) :: RETURN
420 IF Z=15 THEN T$=P$(24+Y)&Y$(24+Y)ELSE T$=P$(Y)&Y$(Y)
430 IF Z=3 THEN CALL GCHAR(Y,1,S)ELSE CALL GCHAR(Y,32,S)
440 IF S=1 THEN CALL EALR(T$)ELSE IF S=5 THEN CALL EA(T$)ELSE IF S=4 THEN CALL XB(T$)
450 IF S=9 THEN CALL USER(T$) :: END
1000 DATA DSK1.,ALLCOLOR,4
1001 DATA DSK1.,BATCH,9
1002 DATA DSK1.,BIAS,4
1003 DATA DSK1.,CALLFILES,4
1004 DATA DSK1.,CATALL,4
1005 DATA DSK1.,CHAR,4
1006 DATA DSK1.,CHARALL,4
1007 DATA DSK1.,CHARSETALL,4
1008 DATA DSK1.,CLSALL,4
1009 DATA DSK1.,COINC,4
1010 DATA DSK1.,COLORALL,4
1011 DATA DSK1.,DISTANCE,4
1012 DATA DSK1.,DV80TOUSER,4
1013 DATA DSK1.,GCHAR,4
1014 DATA DSK1.,GMOTION,4
1015 DATA DSK1.,G~MOTION,4
1016 DATA DSK1.,HCHAR,4
1017 DATA DSK1.,HEX,4
1018 DATA DSK1.,HEXSTRING,4
1019 DATA DSK1.,HEX~DEC,4
1020 DATA DSK1.,HGET,4
1021 DATA DSK1.,HPUT,4
1022 DATA DSK1.,INIT,4
1023 DATA DSK1.,INVERSEALL,4
1024 DATA DSK1.,INVERSED,4
1025 DATA DSK1.,IO~CHIMES,4
1026 DATA DSK1.,IO~CRASH,4
1027 DATA DSK1.,JLOCATE,4
1028 DATA DSK1.,JMOTION,4
1029 DATA DSK1.,LOADER,4
1030 DATA DSK1.,MAGNIFY,4
1031 DATA DSK1.,MOTIONALL,4
1032 DATA DSK1.,MOTIONGO,4
1033 DATA DSK1.,MOTIONSTOP,4
1034 DATA DSK1.,MOVES,4
1035 DATA DSK1.,MOVESDSR,4
1036 DATA DSK1.,MOVESHELLO,4
1037 DATA DSK1.,MPGM,4
1038 DATA DSK1.,NEW,4
1039 DATA DSK1.,PEEKG,4
1040 DATA DSK1.,PEEKV,4
1041 DATA DSK1.,PLOADSCRN,4
1042 DATA DSK1.,POKEG,4
1043 DATA DSK1.,POKER,4
1044 DATA DSK1.,POKEV,4
1045 DATA DSK1.,PSAVESCRN,4
1046 DATA DSK1.,RMOTION,4
1047 DATA DSK1.,RXBONKEY,4
1048 DATA DSK1.,SPRITESWAP,4
1049 DATA DSK1.,SUBPGMFNDR,4
1050 DATA DSK1.,SWAP,4
1051 DATA DSK1.,TEST-USER,9
1053 DATA !........!,"",0
